home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / graphics / plotter3d / plotter3d_upd / install-plotter3d < prev    next >
Text File  |  1997-12-12  |  23KB  |  781 lines
  1. ; $VER: Install-Plotter3D 3.04 (06.10.97)
  2.  
  3. ;##############################################################################
  4. ; Localize
  5. ;
  6.  
  7. (if (= @language "deutsch")
  8.   (
  9.     (set #wrongversion
  10.       (cat "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  11.               "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 42.9.\n\n"
  12.               "Bitte überprüfen Sie Ihre Konfiguration!"
  13.     ))
  14.  
  15.     (set #update "Update")
  16.     (set #abort  "Abbrechen")
  17.  
  18.     (set #welcome_full (cat
  19.       "\n"
  20.       "Willkommen zum Plotter3D Installationsprogramm. \n"
  21.       "\n"
  22.       "Plotter3D ist Freeware, daß heißt es kann frei  \n"
  23.       "vertrieben werden, solange keinerlei Profit     \n"
  24.       "gemacht wird und das Archiv unverändert bleibt. \n"
  25.       "\n"
  26.       "Neue Versionen können aus dem AmiNet bezogen    \n"
  27.       "werden, Updates oder aktuelle Version können    \n"
  28.       "von meiner Homepage geladen werden:             \n"
  29.       "   http://www.inf.tu-dresden.de/~ss37           \n"
  30.       "\n"
  31.       "                            Sven Steiniger, 1997\n"
  32.     ))
  33.     (set #welcome_beta (cat
  34.       "\n"
  35.       "Willkommen zum Plotter3D Installationsprogramm. \n"
  36.       "\n"
  37.       "Sie installieren gerade eine BETA-Version von   \n"
  38.       "Plotter3D! Bitte legen sie erst eine Kopie Ihres\n"
  39.       "'Plotter3D:'-Verzeichnisses an.                 \n"
  40.       "Falls Sie irgendwelche Fehler finden, schicken  \n"
  41.       "Sie bitte eine EMail mit dem Schlüsselwort      \n"
  42.       "'Plotter3D-Bug' im Subjekt-Feld an folgende     \n"
  43.       "Adresse:                                        \n"
  44.       "   ss37@inf.tu-dresden.de                       \n"
  45.       "\n"
  46.       "                           Danke, Sven Steiniger\n"
  47.     ))
  48.     (set #welcome_update (cat
  49.       "\n"
  50.       "Willkommen zum Plotter3D Installationsprogramm. \n"
  51.       "\n"
  52.       "Sie installieren gerade ein Update zu Plotter3D!\n"
  53.       "Es muß schon eine Vollversion von Plotter3D v3.x\n"
  54.       "auf ihrem System installiert sein. Die aktuelle \n"
  55.       "Version kann aus dem AmiNet geladen werden      \n"
  56.       "(gfx/3d/Plotter3D.lha).                         \n"
  57.       "\n"
  58.       "                            Sven Steiniger, 1997\n"
  59.     ))
  60.     (set #error_beta (cat
  61.       "\n"
  62.       "Dieses Archiv enthält nur ein Update (beta-     \n"
  63.       "Version) von Plotter3D!                         \n"
  64.       "Es scheint, daß noch keine Vollversion auf Ihrem\n"
  65.       "System installiert ist. Darum kann Ich kein     \n"
  66.       "Update durchführen.                             \n"
  67.       "\n"
  68.       "Die neuste Vollversion kann entweder aus dem    \n"
  69.       "AmiNet oder von meiner Homepage                 \n"
  70.       "   http://www.inf.tu-dresden.de/~ss37           \n"
  71.       "bezogen werden.                                 \n"
  72.     ))
  73.  
  74.     (set #installing "Installiere %s...")
  75.     (set #cleaning   "Räume auf...")
  76.  
  77.     (set #cp_main   "Installiere Hauptprogramm 'Plotter3D'.")
  78.     (set #cp_docs   "Installiere Documentation.")
  79.     (set #cp_libs   "Installiere Libraries.")
  80.     (set #cp_locale "Installiere Sprachen.")
  81.     (set #cp_funcs  "Kopiere Beispiel-Funktionen.")
  82.     (set #cp_mats   "Kopiere Beispiel-Materialen.")
  83.     (set #cp_lights "Kopiere Beispiel-Lightquellen.")
  84.     (set #cp_datas  "Kopiere Beispiel-Daten.")
  85.     (set #cp_pals   "Kopiere Standard-Farbpaletten.")
  86.     (set #cp_images "Kopiere Bilder für Werkzeugleiste.")
  87.     (set #cp_prefs  "Kopiere Voreinstellungen.")
  88.     (set #cp_tools  "Kopiere Tools.")
  89.  
  90.     (set #ask_update  "Plotter3D ist schon auf ihrem System installiert.\nSie können diese Installation updaten oder abbrechen.")
  91.     (set #ask_docs    "Bitte wählen Sie die Sprache(n) für die AmigaGuide Dokumentation aus.")
  92.     (set #ask_locale  "Bitte wählen Sie die Sprache(n) aus, die Sie installieren wollen.")
  93.     (set #ask_funcs   "Bitte wählen Sie die zu installierenden Beispiele aus.\n(Empfohlen: Alle)")
  94.     (set #ask_drawers "Bitte wählen Sie die Verzeichnisse aus, die kopiert werden sollen.\n(Empfohlen: Alle)")
  95.     (set #ask_others  "Bitte wählen Sie die Dateien aus, die kopiert werden sollen.")
  96.     (set #ask_clean1  (cat
  97.       "Das Dateiformat für Paletten und     \n"
  98.       "Bilder hat sich geändert. Sollen die \n"
  99.       "alten Dateien gelöscht werden, wenn  \n"
  100.       "sie doppelt vorhanden sind? (sowohl  \n"
  101.       "im neuen als auch im alten Format)   \n"
  102.     ))
  103.     (set #ask_clean2  (cat
  104.       "The tools 'ConvertPalette' und 'ILBM2Chunky'\n"
  105.       "wurden aus dem Archiv entfernt. Sie wurden  \n"
  106.       "durch die Programme 'ChunkyMaster' und      \n"
  107.       "'PalettesMaster' ersetzt.                   \n"
  108.       "Sollen die alten Programme gelöscht werden? \n"
  109.     ))
  110.  
  111.     (set #destdir "Bitte wählen Sie einen Platz für Plotter3D. Ein Verzeichnis namens 'Plotter3D' wird dort automatisch erzeugt.")
  112.     (set #startup "Einige Kommandos werden zu ihrer \"s:user-startup\" Datei gefügt.")
  113.  
  114.     (set #user_abort "Fehler: Abbruch durch den Benutzer.")
  115.     (set #copyerror  "Fehler: Verzeichnis/Datei \"%s\" fehlt!\nEs kann sein das Plotter3D nach der Installation nicht oder nicht korrekt funktioniert.")
  116.  
  117.     (set #answer_yes "Ja")
  118.     (set #answer_no  "Nein")
  119.  
  120.   )
  121.   (
  122.     (set #wrongversion
  123.          (cat "You have an old version of the program 'Installer' "
  124.               "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
  125.               "Please check your configuration!"
  126.     ))
  127.  
  128.     (set #update "Update")
  129.     (set #abort  "Abort")
  130.  
  131.     (set #welcome_full (cat
  132.       "\n"
  133.       "Welcome to the Plotter3D installation program.  \n"
  134.       "\n"
  135.       "Plotter3D is Freeware, means it can be spread   \n"
  136.       "freely as long as no profit is made and the     \n"
  137.       "archive is not modified.                        \n"
  138.       "\n"
  139.       "You can get new versions from AmiNet. Updates   \n"
  140.       "and actual beta-versions can be downloaded from \n"
  141.       "my homepage at:                                 \n"
  142.       "   http://www.inf.tu-dresden.de/~ss37           \n"
  143.       "\n"
  144.       "                            Sven Steiniger, 1997\n"
  145.     ))
  146.     (set #welcome_beta (cat
  147.       "\n"
  148.       "Welcome to the Plotter3D installation program.  \n"
  149.       "\n"
  150.       "You are installing an BETA-version of Plotter3D!\n"
  151.       "Please make a copy of your 'Plotter3D:'         \n"
  152.       "directory first.                                \n"
  153.       "If you find any bugs please mail to:            \n"
  154.       "   ss37@inf.tu-dresden.de                       \n"
  155.       "with subject field containing 'Plotter3D-Bug'   \n"
  156.       "\n"
  157.       "                          Thanks, Sven Steiniger\n"
  158.     ))
  159.     (set #welcome_update (cat
  160.       "\n"
  161.       "Welcome to the Plotter3D installation program.  \n"
  162.       "\n"
  163.       "You are installing an Update of Plotter3D!      \n"
  164.       "It needs an fully installed version of          \n"
  165.       "Plotter3D v3.xx. You can get the lastest package\n"
  166.       "from AmiNet (gfx/3d/Plotter3D.lha).             \n"
  167.       "\n"
  168.       "                            Sven Steiniger, 1997\n"
  169.     ))
  170.     (set #error_beta (cat
  171.       "\n"
  172.       "This archive only contains an update (beta-     \n"
  173.       "version) of Plotter3D!                          \n"
  174.       "It seems you have not installed an full version \n"
  175.       "on your system therefore I could not make an    \n"
  176.       "update.                                         \n"
  177.       "\n"
  178.       "You can get the latest full version either from \n"
  179.       "your local AmiNet-site or from my homepage:     \n"
  180.       "   http://www.inf.tu-dresden.de/~ss37           \n"
  181.     ))
  182.  
  183.     (set #installing "Installing %s...")
  184.     (set #cleaning   "Cleaning up...")
  185.  
  186.     (set #cp_main   "Installing main program 'Plotter3D'.")
  187.     (set #cp_docs   "Installing documentation.")
  188.     (set #cp_libs   "Installing libraries.")
  189.     (set #cp_locale "Installing languages.")
  190.     (set #cp_funcs  "Copying example functions.")
  191.     (set #cp_mats   "Copying example materials.")
  192.     (set #cp_lights "Copying example lightsources.")
  193.     (set #cp_datas  "Copying example datas.")
  194.     (set #cp_pals   "Copying standard colorpalettes.")
  195.     (set #cp_images "Copying toolbar images.")
  196.     (set #cp_prefs  "Copying preferences.")
  197.     (set #cp_tools  "Copying tools.")
  198.  
  199.     (set #ask_update  "Plotter3D is already installed on your system.\nYou can make an update or abort.")
  200.     (set #ask_docs    "Select the language(s) of AmigaGuide documentations you wish to install.")
  201.     (set #ask_locale  "Select the language(s) you wish to install.")
  202.     (set #ask_funcs   "Select the examples you wish to install.\n(Recommended: All)")
  203.     (set #ask_drawers "Select the drawers you wish to copy.\n(Recommended: All)")
  204.     (set #ask_others  "Select the files you wish to copy.")
  205.     (set #ask_clean1  (cat
  206.       "The file format of palettes and      \n"
  207.       "pictures has been changed. Should the\n"
  208.       "old files be deleted if they exists  \n"
  209.       "twice?                               \n"
  210.     ))
  211.     (set #ask_clean2  (cat
  212.       "The tools 'ConvertPalette' and 'ILBM2Chunky'\n"
  213.       "have been removed from the archive. Instead \n"
  214.       "More powerful tools called 'PalettesMaster' \n"
  215.       "and 'ChunkyMaster' have been included.      \n"
  216.       "Should I delete the old tools?              \n"
  217.     ))
  218.  
  219.     (set #destdir "Please select a place for the Plotter3D package. A drawer called 'Plotter3D' will be created here.")
  220.     (set #startup "Some commands will be added to your \"s:user-startup\" file.")
  221.  
  222.     (set #user_abort "Error: User abort.")
  223.     (set #copyerror  "Error: Directory/File \"%s\" is missed!.\nIt is possible that Plotter3D does not work properly after installation.")
  224.  
  225.     (set #answer_yes "Yes")
  226.     (set #answer_no  "No")
  227.  
  228.  
  229.   )
  230. )
  231.  
  232. ;##############################################################################
  233. ; start
  234. (if (< @installer-version 2752521)
  235.   (
  236.     (message #wrongversion)
  237.     (working (#installing "Installer"))
  238.     (copylib
  239.       (source "Installer")
  240.       (dest "C:")
  241.       (optional "force" "askuser")
  242.     )
  243.     (exit (quiet))
  244.   )
  245. )
  246.  
  247. ;#############################################################################
  248. ; procedure P_MakeDir
  249. ; creates a new drawer and copies the icon.
  250. ;
  251. ; #spath - source path
  252. ; #name  - name of drawer
  253.  
  254. (procedure P_MakeDir #pm_path #pm_name
  255.   (
  256.     (if (not (exists (tackon @default-dest (tackon #pm_path #pm_name)) (noreq)))
  257.       (
  258.         (makedir (tackon @default-dest (tackon #pm_path #pm_name)))
  259.       )
  260.     )
  261.     (P_CopyIcon #pm_path #pm_name @copy-help FALSE)
  262.   )
  263. )
  264.  
  265. ;##############################################################################
  266. ; procedure P_CopyDir
  267. ; copies a whole directory including all subdirectories. If an file exists
  268. ; it is not overwritten if it has an higher version.
  269. ;
  270. ; #cp_name      - name of directory
  271. ; #cp_help      - text shown during copy
  272. ; #cp_overwrite - if TRUE then files without version are overwritten
  273.  
  274. (procedure P_CopyDir #cp_name #cp_help #cp_overwrite
  275.   (
  276.     (if (exists #cp_name)
  277.       (
  278.         (working ("%s\n(%s/)" #cp_help #cp_name))
  279.         (foreach #cp_name "~(#?.info)"
  280.           (
  281.             (if (< @each-type 0)
  282.               (
  283.                 (set cd_source (tackon #cp_name @each-name))
  284.                 (set cd_dest   (tackon (tackon @default-dest #cp_name) @each-name))
  285.                 (if (exists cd_dest)
  286.                   (
  287.                     (set cd_doit FALSE)
  288.                     (set cd_version (GETVERSION cd_dest))
  289.                     (if cd_version
  290.                       (if (> (GETVERSION cd_source) cd_version) (set cd_doit TRUE))
  291.                       (if #cp_overwrite (set cd_doit TRUE))
  292.                     )
  293.                   )
  294.                   (set cd_doit TRUE)
  295.                 )
  296.                 (if cd_doit (P_CopyFile #cp_name @each-name #cp_help))
  297.               )
  298.             )
  299.           )
  300.        )
  301.       )
  302.       (if (not #v_update) (message (#copyerror #cp_name) (all)))
  303.     )
  304.   )
  305. )
  306.  
  307. ;##############################################################################
  308. ; procedure P_CopyFile
  309. ; copies a file
  310. ;
  311. ; #cf_path   - path of file
  312. ; #cf_name   - name of file
  313. ; #cf_prompt - text for prompt
  314. ;
  315. (procedure P_CopyFile #cf_path #cf_name #cf_prompt
  316.   (
  317.     (if (exists (tackon #cf_path #cf_name))
  318.       (
  319.         (copyfiles
  320.           (prompt #cf_prompt)
  321.           (help   @copyfiles-help)
  322.           (source (tackon #cf_path #cf_name))
  323.           (dest   (tackon @default-dest #cf_path))
  324.           (nogauge)
  325.         )
  326.         (P_CopyIcon #cf_path #cf_name #cf_prompt FALSE)
  327.       )
  328.       (if (not #v_update) (message (#copyerror (tackon #cf_path #cf_name)) (all)))
  329.     )
  330.   )
  331. )
  332.  
  333. ;##############################################################################
  334. ; procedure P_CopyLib
  335. ; copies a file
  336. ;
  337. ; #cl_path   - path of file
  338. ; #cl_name   - name of file
  339. ; #cl_prompt - text for prompt
  340. ;
  341. (procedure P_CopyLib #cl_path #cl_name #cl_prompt
  342.   (
  343.     (if (exists (tackon #cl_path #cl_name))
  344.       (
  345.         (copylib
  346.           (prompt #cl_prompt)
  347.           (help   @copylib-help)
  348.           (source (tackon #cl_path #cl_name))
  349.           (dest   (tackon @default-dest #cl_path))
  350.         )
  351.         (P_CopyIcon #cl_path #cl_name #cl_prompt FALSE)
  352.       )
  353.       (if (not #v_update) (message (#copyerror (tackon #cl_path #cl_name)) (all)))
  354.     )
  355.   )
  356. )
  357.  
  358.  
  359. ;##############################################################################
  360. ; procedure P_CopyIcon
  361. ; copies an icon
  362. ;
  363. ; #ci_path   - path of icon
  364. ; #ci_name   - name of icon (without .info)
  365. ; #ci_prompt - text for prompt
  366. ;
  367. (procedure P_CopyIcon #ci_path #ci_name #ci_prompt #ci_necessary
  368.   (
  369.     (set ci_file (tackon #ci_path #ci_name))
  370.     (set ci_icon (cat ci_file ".info"))
  371.  
  372.     (if (exists ci_icon)
  373.       (
  374.         (if (exists (tackon @default-dest ci_icon))
  375.           (
  376.             (iconinfo
  377.               (dest (tackon @default-dest ci_file))
  378.               (getposition "#ci_xp" "#ci_yp")
  379.             )
  380.             (copyfiles
  381.               (prompt #ci_prompt)
  382.               (help   @copyfiles-help)
  383.               (source ci_icon)
  384.               (dest   (tackon @default-dest #ci_path))
  385.               (nogauge)
  386.             )
  387.             (tooltype
  388.               (dest (tackon @default-dest ci_file))
  389.               (setposition #ci_xp #ci_yp)
  390.             )
  391.           )
  392.           (copyfiles
  393.             (prompt #ci_prompt)
  394.             (help   @copyfiles-help)
  395.             (source ci_icon)
  396.             (dest (tackon @default-dest #ci_path))
  397.             (nogauge)
  398.           )
  399.         )
  400.       )
  401.       (
  402.         (if (and #ci_necessary (not #v_update))
  403.           (message (#copyerror ci_icon) (all))
  404.         )
  405.       )
  406.     )
  407.   )
  408. )
  409.  
  410. ;##############################################################################
  411. ; procedure P_CleanDir
  412. ; Scans a directory for double files (differs only in suffix)
  413. ; 
  414. ;
  415. ; #cld_name      - name of directory
  416. ; #cld_help      - text shown during copy
  417. ; #cld_good      - suffix of good files
  418. ; #cld_bad       - suffix of bad files
  419. ;
  420. (procedure P_CleanDir #cld_name #cld_help #cld_good #cld_bad
  421.   (
  422.     (if (exists #cld_name)
  423.       (foreach #cld_name (cat "#?." #cld_good)
  424.         (if (< @each-type 0)
  425.           (
  426.             (set cld_dest
  427.               (tackon
  428.                 #cld_name
  429.                 (cat
  430.                   (substr
  431.                     @each-name
  432.                     0
  433.                     (- (strlen @each-name) (strlen #cld_good))
  434.                   )
  435.                   #cld_bad
  436.                 )
  437.               )           
  438.             )
  439.             (if (exists cld_dest) (delete cld_dest))
  440.           )
  441.         )
  442.       )
  443.     )
  444.   )
  445. )
  446.  
  447. ;(procedure P_UserAbort
  448. ;  (
  449. ;    (ABORT #user_abort)
  450. ;  )
  451. ;)
  452.  
  453.  
  454. ;##############################################################################
  455. ; global variables
  456.  
  457. (set ul_novice  0)
  458. (set ul_average 1)
  459. (set ul_expert  2)
  460.  
  461. ; last_choice contains the result of the last askoptions-call
  462. (set last_choice       0)
  463.  
  464. (set #v_update   FALSE)
  465. (set #v_partly   FALSE)
  466. (set #v_docs     -1)
  467. (set #v_locale   -1)
  468. (set #v_examples -1)
  469. (set #v_extra    -1)
  470. (set #v_others   -1)
  471.  
  472. ;##############################################################################
  473. ; check beta or update-version.
  474. (if (exists "Beta.readme")
  475.   (
  476.     (message #welcome_beta)
  477.     (set #v_partly TRUE)
  478.   )
  479.   (if (exists "Update.readme")
  480.     (
  481.       (message #welcome_update)
  482.       (set #v_partly TRUE)
  483.     )
  484.     (message #welcome_full)
  485.   )
  486. )
  487. (welcome)
  488.  
  489.  
  490. ;##############################################################################
  491. ; get destination path
  492. (if (exists "plotter3d:" (noreq))
  493.   (
  494.     (set @default-dest (expandpath "plotter3d:/"))
  495.     (set #v_update TRUE)
  496.     (if (not #v_partly)
  497.       (if (not (askbool 
  498.             (prompt  #ask_update)
  499.             (choices #update #abort)
  500.             (help    @askbool-help)
  501.           ))
  502.         (exit (quiet))
  503.       )
  504.     )
  505.   )
  506.   (if #v_partly
  507.     (
  508.       (message #error_beta)
  509.       (exit (quiet))
  510.     )
  511.     (
  512.       (set @default-dest
  513.         (askdir
  514.           (prompt  #destdir)
  515.           (help    @askdir-help)
  516.           (default @default-dest)
  517.         )
  518.       )
  519.       (set @default-dest (expandpath @default-dest))
  520.     )
  521.   )
  522. )
  523.  
  524. ;##############################################################################
  525. ; documentation
  526.  
  527. (if (>= @user-level ul_average)
  528.   (set #v_docs
  529.     (askoptions
  530.       (prompt  #ask_docs)
  531.       (default #v_docs)
  532.       (help    @askoptions-help)
  533.       (choices
  534.         "English"
  535.         "Deutsch"
  536.       )
  537.     )
  538.   )
  539. )
  540.  
  541. ;##############################################################################
  542. ; Locale
  543.  
  544. (if (>= @user-level ul_average)
  545.   (set #v_locale
  546.     (askoptions
  547.       (prompt  #ask_locale)
  548.       (default #v_locale)
  549.       (help    @askoptions-help)
  550.       (choices
  551.         "English (built-in)"
  552.         "Deutsch"
  553.         "Français"
  554.     "Español"
  555.       )
  556.     )
  557.   )
  558. )
  559.  
  560. ;##############################################################################
  561. ; examples
  562.  
  563. (if (>= @user-level ul_expert)
  564.   (set #v_examples
  565.     (askoptions
  566.       (prompt  #ask_funcs)
  567.       (default #v_examples)
  568.       (help    @askoptions-help)
  569.       (choices
  570.         "Functions"
  571.         "Materials"
  572.         "Lightsources"
  573.         "Palettes"
  574.         "Datas"
  575.       )
  576.     )
  577.   )
  578. )
  579.  
  580. ;##############################################################################
  581. ; extra
  582.  
  583. (if (>= @user-level ul_expert)
  584.   (set #v_extra
  585.     (askoptions
  586.       (prompt  #ask_drawers)
  587.       (default #v_extra)
  588.       (help    @askoptions-help)
  589.       (choices
  590.         "Imagebuttons"
  591.         "Preferences"
  592.         "Tools"
  593.       )
  594.     )
  595.   )
  596. )
  597.  
  598. ;##############################################################################
  599. ; others
  600.  
  601. (if (>= @user-level ul_average)
  602.   (set #v_others
  603.     (askoptions
  604.       (prompt  #ask_others)
  605.       (default #v_others)
  606.       (help    @askoptions-help)
  607.       (choices
  608.         "Preview picture"
  609.       )
  610.     )
  611.   )
  612. )
  613.  
  614. ;##############################################################################
  615. ; go
  616.  
  617. (complete 0)
  618.  
  619. (if (not #v_update)
  620.   (
  621.     (makedir
  622.       (tackon @default-dest "Plotter3D")
  623.       (help   @makedir-help)
  624.     )
  625.     (copyfiles
  626.       (help   @copyfiles-help)
  627.       (source "/Plotter3D.info")
  628.       (dest   @default-dest)
  629.     )
  630.     (tooltype
  631.       (dest (tackon @default-dest "Plotter3D"))
  632.       (noposition)
  633.     )
  634.   )
  635. )
  636. (complete 10)
  637.  
  638. (set @default-dest (tackon @default-dest "Plotter3D"))
  639.  
  640. ;##############################################################################
  641. ; copy Main Program
  642.  
  643. ;(copylib
  644. ;  (prompt #cp_main)
  645. ;  (help   @copylib-help)
  646. ;  (source "Plotter3D")
  647. ;  (dest   @default-dest)
  648. ;)
  649. ;(P_CopyIcon "" "Plotter3D" #cp_main TRUE)
  650. (P_CopyLib "" "Plotter3D" #cp_main)
  651.  
  652.  
  653. (P_MakeDir "" "Libs")
  654. (P_CopyDir "Libs" #cp_libs TRUE)
  655. (P_MakeDir "Libs" "Dither")
  656. (P_CopyDir "Libs/Dither" #cp_libs TRUE)
  657.  
  658. (complete 20)
  659.  
  660. ;##############################################################################
  661. ; copy documentation
  662.  
  663. (P_MakeDir "" "Docs")
  664. (P_CopyFile "Docs" "History" #cp_docs)
  665. (P_CopyFile "Docs" "Bugs"    #cp_docs)
  666. (P_CopyFile "Docs" "ToDo"    #cp_docs)
  667.  
  668. (if (IN #v_docs 0) ( (P_MakeDir "Docs" "English") (P_CopyDir "Docs/English" #cp_docs TRUE)))
  669. (if (IN #v_docs 1) ( (P_MakeDir "Docs" "Deutsch") (P_CopyDir "Docs/Deutsch" #cp_docs TRUE)))
  670.  
  671. (complete 30)
  672.  
  673. ;##############################################################################
  674. ; copy Locale
  675.  
  676. (if (> #v_locale 1)
  677.   (
  678.     (makedir (tackon @default-dest "Catalogs"))
  679.     (if (IN #v_locale 1) ( (P_CopyDir "Catalogs/Deutsch"  #cp_locale TRUE) ))
  680.     (if (IN #v_locale 2) ( (P_CopyDir "Catalogs/Français" #cp_locale TRUE) ))
  681.     (if (IN #v_locale 3) ( (P_CopyDir "Catalogs/Español" #cp_locale TRUE) ))
  682.   )
  683. )
  684. (complete 40)
  685.  
  686. ;##############################################################################
  687. ; install functions etc.
  688.  
  689. (if (IN #v_examples 0) ( (P_MakeDir "" "Functions") (P_CopyDir "Functions" #cp_funcs  TRUE)))
  690. (if (IN #v_examples 1) ( (P_MakeDir "" "Materials") (P_CopyDir "Materials" #cp_mats   FALSE)))
  691. (if (IN #v_examples 2) ( (P_MakeDir "" "Lights"   ) (P_CopyDir "Lights"    #cp_lights FALSE)))
  692. (if (IN #v_examples 3) ( (P_MakeDir "" "Palettes" ) (P_CopyDir "Palettes"  #cp_pals   FALSE)))
  693. (if (IN #v_examples 4) ( (P_MakeDir "" "Datas"    ) (P_CopyDir "Datas"     #cp_datas  FALSE)))
  694.  
  695. (complete 50)
  696.  
  697. ;##############################################################################
  698. ; copy extra drawers
  699.  
  700. (if (IN #v_extra 0) ( (P_MakeDir "" "Images") (P_CopyDir "Images" #cp_images TRUE)))
  701. (if (IN #v_extra 1) ( (P_MakeDir "" "Prefs" ) (P_CopyDir "Prefs"  #cp_prefs FALSE)))
  702. (if (IN #v_extra 2) ( (P_MakeDir "" "Tools" ) (P_CopyDir "Tools"  #cp_tools TRUE)))
  703.  
  704. (complete 60)
  705.  
  706. ;##############################################################################
  707. ; copy other datas
  708.  
  709. (if (IN #v_others 0) (P_CopyFile "" "PreviewPic" @copyfiles-help))
  710.  
  711. (complete 80)
  712.  
  713. ;##############################################################################
  714. ; Cleanup 1
  715.  
  716. (if #v_update
  717.   (if (>= @user-level ul_expert)
  718.     (if (askbool
  719.           (prompt  #ask_clean1)
  720.           (help    @askbool-help)
  721.           (choices
  722.             #answer_yes
  723.             #answer_no
  724.           )
  725.         )
  726.       (
  727.         ; remove double palettes
  728.         (P_CleanDir (tackon @default-dest "Palettes") #cleaning "cpal" "pal256") 
  729.         ; remove double pictures
  730.         (P_CleanDir (tackon @default-dest "Datas") #cleaning "ciff" "chunky") 
  731.         (P_CleanDir (tackon @default-dest "Datas") #cleaning "ciff" "pal256") 
  732.       )
  733.     )
  734.   )
  735. )
  736.  
  737. (complete 87)
  738.  
  739. ;##############################################################################
  740. ; Cleanup 2
  741.  
  742. (if #v_update
  743.   (if (>= @user-level ul_expert)
  744.     (if (askbool
  745.           (prompt  #ask_clean2)
  746.           (help    @askbool-help)
  747.           (choices
  748.             #answer_yes
  749.             #answer_no
  750.           )
  751.         )
  752.       (
  753.         (delete (tackon @default-dest "Tools/ConvertPalette") 
  754.            (infos)
  755.         )
  756.         (delete (tackon @default-dest "Tools/ILBM2Chunky") 
  757.            (infos)
  758.         )
  759.       )
  760.     )
  761.   )
  762. )
  763.  
  764. (complete 95)
  765.  
  766. ;##############################################################################
  767. ; startup-sequence
  768.  
  769. (if (not #v_update)
  770.   (startup "Plotter3D"
  771.     (prompt  #startup)
  772.     (help    @startup-help)
  773.     (command "assign Plotter3D: \"" @default-dest "\"")
  774.     (confirm "expert")
  775.   )
  776. )
  777.  
  778. (makeassign "Plotter3D" @default-dest)
  779.  
  780. (complete 100)
  781.